on CheckUserStatus
  global gNewUser
  put 0 into gNewUser
  
  put FileIO (mNew, "read", "C:\Windows\mci2000.ins") into readObject
  
  
  alert "FileIO instanciated = " && readObject
  
  if readObject = -33 then alert "File directory full"
  if readObject = -34 then alert "Volume Full"
  if readObject = -35 then alert "Volume not found"
  if readObject = -36 then alert "I/O error"
  if readObject = -37 then alert "Bad File Name"
  if readObject = -38 then alert "File not open"
  if readObject = -42 then alert "Too many open files"
  if readObject = -43 then alert "File Not Found"
  if readObject = -56 then alert "N such drive"
  if readObject = -65 then alert "No disk in drive"
  if readObject = -120 then alert "Directory not found"
  
  
  
  if readObject = -43 then
    alert "File Not Found"
    put 1 into gNewUser
  else
    put 0 into gNewUser
    readObject (mDispose)
  end if
  
end